FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
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FFF DDD DOD 
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FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 
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-$ep-1984 12: FOL. SRCIJFDLDRIVER.B32; (1) 
3 1 001 ZTITLE ‘FDLORIVER' : 
; § On6 ZSBTTL ‘FDL Parse vente» Drivers’ F 
; 0 MODULE FDLDRIVER C IDENT="V -000', 3 
; 4 004 ADDRESSING “MODE (“EXTERNAL = GENERAL ) 3 
: 5 005 ain tt hia MODE ( NONEXTERNAL = GENERAL ) P 5 
ee Boos OPTLEVEL= | : 
; 7 00 d= 3 
ORE 8B hoe ad! 
: 10 0010 1 leaker rere ee eee eee RRR AERA AAA AAA AAA AERA AAA A TATE A ARERR AAAAREA RARER g 
on 0011 1 !* ; 
3 \¢ oot¢ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 3 
; 1 001 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ’ 
3 13 Baie } :* ALL RIGHTS RESERVED. * 5 
; 'e . : 
; 16 8018 1 !e oe athe 5s FURNISHED UNDER A LICENSE AND MAY BE USED AND ag ht * ; 
. 6ST 0017 1 !* Y IN. ACCORDANCE WITH THE TERMS U ICENSE AND WITH THE * ; 
: 18 0018 1 !* ONE USION OF me ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY THE * : 
: 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * P 
3 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 $3 B05: : ‘* TRANSFERRED. ” 3 
: ;* * ° 
4 $¢ 0098 1 ie phe | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
; 24 0024 1 I! SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
3 $2 505% : re CORPORATION. * é 
3 '@ } PY 
3 e? 0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * $ 
3 28 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
; 2 Ons 1 !® * § 
; 0030 1 !«# * 3 
4 31 0031 1 Vee ReR REAR AAAAEAAAAAAAAAAAAAAAAAA RAAT AAT AAeRee Ee P 
7 2 0032 1 : 
g 00 1 !e¢ 3 
: 4 0034 1! : ; 
3 5 0035 1°! Facility: RMS-32 FOL Utilities : 
5 36 0036 1! F 
; 0037 1°! Abstract: 3 
; BB 0038 1! 3 
3 39 0039 1 ! Contents: 
; 40 0040 1! GET_LINE 
3 41 0041 1! UPCASE 
; 4@ 004¢ 1! SET_LINE 
co = 0043 1! SET_TERM 
4 44 044 1! SET~ PRIMARY 
. 045 1! SET- SECONDARY 
; 46 0046 1! START_S 
: 47 0047 1! END_ teplh 
3 48 0048 1! SET~ DATE TIME 
; «649 0049 1! SET- COMMENT 
; 50 0050 1! SYNTAX ERROR 
. oF 0051 1! ERROR_CHK 
; 26 O36 1! NEGATE 
3; > 053 1! SET_BLANK 
: | «656 054 1! CLR a 
; 55 oo; ae FOLSSREAD_ERROR 
; + 0056 1! S_ERRO 
Tae 0057 1: RMS~OPEN_ERROR 
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; & 065 1 ! Author: 
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; 067 1! 
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. 0070 1! 
; £ 0071 1! 
: ££ pore 1! 
: 74 00735 1! 
; 75 0074 1! 
; 0075 1! 
WB a 0076 1! 
; 78 0077 1! 
: 7 0078 1! 
; 60 0079 1! 
; 8 0080 1! 
; 8 0081 1! 
7. oe 0082 1! 
: 684 0083 1! 
; #85 0084 1! 
; 86 0085 1! 
| oF 0086 1! 
; 2 0087 1! 
; 36889 0088 1! 
: 90 0089 1! 
>; #691 0090 1! 
: 692 0091 1! 
; 95 0092 1! 
: 94 0095 1! 
, 0094 1! 
; 8696 0095 1! 
: 97 0096 1! 
; | «698 0097 1! 
; 99 0098 1! 
3: 100 0099 1! 
: 101 0100 1! 
: 1°¢ 0101 1! 
: 10 B16 1! 
: 104 0103 1! 
; 105 0104 1! 
: 106 0105 1! 
; 107 8198 ; % 
: 108 319 1! 
; 109 108 1! 
s 110 0109 1! 
s 911 0110 1! 
: ig S11) F% 
3s 11 oils 2 2 
: 116 011 1! 
» 6395 0114 1! 
: 116 0115 1! 
. Oi7 B18 1! 
; 118 11 1 !eeee 
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FOL. SRCJFDLDRIVER.B32; 


Keith B Thompson 


KFHOOO9 Ken Henderson 23 Aug 1983 
Fix to FDLSSGET_LINE to allow null 

FDL spec strings 

Fix calls to GET_VM and FREE_VM. 

KFHOOO8 Ken Henderson 10 Aug 1983 
Fixes to END_STR and SET _DATE_TIME 

Addition of EXTRACT_QUOTE routine 

Addition of TRIM_LEADING routine 

KFHOOO7 Ken Henderson 29 Jul 1983 
Check status of LIBSTPARSE call 

KFHOO06 Ken Henderson 26 Apr 1983 
Fixed call to SBINTIM 

KFHOOOS Ken Henderson 30 Dec 1982 
Fixed broken branches 

KFHOO04 Ken Henderson 21 Dec 1982 
Fixed signal of FOLS_UNSECKW 

KFHOOO3 Ken Henderson 15-Nov-1982 


Added support for default and 
main parses 

Added support for more than 32 
secondaries per [rere 

Added move to .FDLSGL_STNUMPTR of 
-FDLSGL_STMNTNUM 


KFHOOO2 
Removed numtype 
Added support for ACL primar 
Added support for FOL STRING 


KFHOOO1 Ken F. Henderson 28-Jul-1982 
Changed terminator character from ‘'/*' to ‘\"' 


Ken Henderson 6-0ct-1982 


KBT0067 Keith B. Thompson 23-Jun-1982 
Add support for multiple keywords per Line 
KBT0029 Keith Thompson 30-Mar-1982 


Add upcase/lowercase processing and date/time routine 


KBT0019 Keith Thompson 22-Mar-1982 
Fix error message processing 
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SMALL_A 
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UPCASE_MASK 
COMMENT _MARK 
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9 
1$-sen-1964 91:47: 
: 433 he {C ,LONG J, 
: DESC_BLK, 
: DESC_BLK, 
: SRAB_DECL; 


' ASCII character 
' ASCII character 
' Mask to convert 
! ASCII character 


: DESC_BLK; 


4 AX-11 Blis 
1 FOL. SRCJFDL 


2 
fo, upercase ASCII 


a — 
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FDLORIVER VAX-11 FDL Utilities ib-se -1984 247:4 AX-11 Bliss-32 V4.0-74 Page 6 
ye GET_LINE 12-88-1382 Oo grit Mr ae Be oRiveR bsee] . (4). 
; 193 ZSBTTL ‘GET ‘i 
go GLOBAL ROUTINE FDLSSGET_LINE = 


! 
Functional Description: 


Set up a new item for the parse tables. If there are no 

more items on a Line it then reads from the input file (or uses 

the FDL STRING) 

It then upcases it; inits some values and returns 


Calling Sequence: 


Called from the parse tables 


1 Only go thru once for the string. 
t go thru at all if the string is null. 


rer 
ONOWE 


3 1 

oi a 1 

3 1 

.:e 1 } 

; #19 1! 

; 198 1! 

3; «4199 1 ! 

; 200 1! 

: $0) 1 i 

3 88 1! 

: 206 1! 

; 205 ! 

3 8 0 1! 

; 208 0 1 ! Input Parameters: 
; 09 8 1! none | 
: 10 1! 

: eit 0 1 ! Implicit Inputs: 
: \¢ 0 1! none 

; 1 0 '% 
; 14 0 1 ! Output Parameters: 

3; 219 0 1} none 

: 1 0 1! 
: 21 0 1 ! Implicit Outputs: 
; 18 0 1! none 

3 19 0 1! 

; 220 0 1 ! Routine Value: 

; 1 0 1! none 

3 ; 0941 1! 

3 0942 1 ! Side Effects: 

3 $¢ 0943 1! none 

3 5 0944 1! 

: 226 0945 1 !-- 

3 44 0946 1 

3 8 0947 BEGIN 

3 9 0948 
; 230 0949 TPARSE_ARGS; 

3 1 0950 

3 § 0951 ' Main processing loop 

3 a4) ' 

3 Bae dO 

3 35 He BEGIN 

3 38 0986 If there are no more items in the Line get a new Line 

$ 39 0958 IF .FDLSAB_ITEM C DSCS$W_LENGTH ] EQL 0 

; 40 959 HEN 

: 241 960 4 BEGIN 

; 24 961 4 

: 26 962 4 IF .FDLSAB_CTRL C FDLSV_STRING_SPEC J 

3 965 4 HEN 

: 45 964 BEGIN 

3 965 

3 208 


96 ' Don 
968 ! 


= 
oO 


! Lon Ayer 


— ee a a et se a — — 4) 
sssssseesssssosessssss 
MEAN OO OONOA MEW CO OONOUSE 
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VAX-11 FOL Utilities 


GET_LINE 
3 0 9 
3 1 370 $ 
; ¢ 97 § 
; 97 
; 4 97 
3 5 974 
3 : B30? 
; 378 
3 8 097 
; 259 0978 
; 260 0979 
; 261 344 
3 ¢ 981 
: 26 84 
3: 264 098 
; 265 0984 4 
: 266 0985 2 
: 267 0986 
; 268 0987 5 
: 269 0988 5 
: 270 0989 5 
: 71 0990 6 
3 4 0991 6 
: ef 0992 6 
: ste 0993 6 
. ove 0994 6 
; 276 0995 6 
s a 0996 6 
3 sie 0997 6 
3 79 0998 g 
; 280 0999 
3 $B) 1000 5 
3 Bs 1001 4 
: 28 1002 4 
; «6284 003 4 
: 285 4 
; 286 4 
: 287 4 
: 288 4 
; 289 4 
; 290 4 
3 $3) 4 
3 38 | 
3 4 
: 4 
s 4 
3 4 
3 4 
; ; 


9 
IESE USAT) WACTDAt Matti e328 
FDLSAB_CTRL C FDLSV_USED_STRING J) 
FDL SAB FOL STRING C DSCSW_LENGTH J EQLU 0) 
RETURN 0; 
CHSMOVE ( .FDLSA 
$A 


$W_LENGTH J 

$A POINTER j, 

NTER J) ); 

LSAB_FDL_STRING C DSCS$W_LENGTH ); 


B_F 
B-F 
LSABIL 
C$w 
L$V 


BEGIN 
Loop until we get a non-zero ‘ine 
dO 
BEGIN 
Get the new Line from the FDL file. 
RET_ON_ERROR( $GET ( RAB=FDLSAB_FDL_RAB,ERR=FDLSSREAD_ERROR ) ); 
END 


UNTIL ( FDLSAB_LINE C DSC$W_LENGTH ] = 
-FDOCSAB_FDL_RAB C RABSW_RSZ J ) NEQ 0; 


END; 

Up case the whole Line and move it into the upcase buffer 
UPCASE(); 
Point the tables to the upcased Line 
FDLSAB_ITEM C DSCSA_POINTER ] = .FDLSAB_UPCASED C DSCSA_POINTER J 
END; 

Point to the next item 

FOLSAB_ITEM C DSCSA_POINTER ) = .FDOLSAB_ITEM C DSC$A_PO 

-FDLSAB_ITEM [( 


BEGIN 
Get the string 


FDLSAB_PRE_PARSE_BLOCK C TPASL_STRINGCNT ) = 
-FOLSAB_UPCASED C DSC$W_LENGTH ) 


~ * FDLSAB_ITEM C DSCSA_POINTER ] 
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DL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-742 
18-808-1 3b 95: 3tif PDL SREIFOLDRIVER B3001 
* - .FDLSAB_UPCASED C DSCSA_POINTER J 
FDLSAB_PRE_PARSE_BLOCK [ TPASL_STRINGPTR ] = .FDLSAB_ITEM C DSCSA_POINTER J; 


: Find where to chop it off = the Tparse will set these flags if 
it finds " or 


FDLSAB_CTRL : FDLSV_QUOTE_PRES ] = _CLEAR; 
FDLSAB_CTRL C FDLSVIAPOST-PRES } = CLEAR; 
e 


ET_ON_ERROR ( LIBSTPARSE ( 
FDLSAB_PRE_PARSE_BLOCK,FOLSAB_PRE_PARSE_STATE,FDLS$AB_PRE_PARSE_KEY )); 


Now set up the main tparse block to find our ‘Line’ 
TPARSE_BLOCK TPASL_STRINGPTR J] = .FDLSAB_ITEM C DSCSA_POINTER J; 


TPARSE_BLOCK C TPASL-STRINGCNT J = 
.FDLS$AB_PRE PARSE BLOCK C TPASL_STRINGPTR J 


- .FDOLSAB_ITEM C BSCSA_POINTER J; 
FDLSAB_ITEM C DSCS$W_LENGTH ] = .TPARSE_BLOCK C TPASL_STRINGCNT J; 
END ! of local 
END ! of main loop 


UNTIL .FDLSAB_ITEM C DSCS$W_LENGTH J] NEQ 0; 
FDOLSGL_STMNTNUM = .FDLSGL_STMNTNUM + 1; 
Update the user's cell that contains the statement number. 
pPOLsne crm. C FDOLS$V_STVALID J 
-FDLSGL_STNUMPTR = .FDLSGL_STMNTNUM; 
Since there is a new secondary for each item clear some flags 


FDLSGL_SECONDARY = _CLEAR; 
FDL$GL~SECNUM = “CLEAR; 

FDL$GL~ SWITCH = “CLEAR; 
FDLS$GL-PROTECTION = “CLEAR: 
DLSAB-STRING C DSC$W_CENGTH J = 0; 
FDLSAB-CTRL ( FDLS$V_WARNING ] = _CLEAR; 
FDLS$AB-CTRL C FDLSVZCOMMENT ) = “CLEAR: 
FDLSAB_CTRL C FDLSVZLINECMT } = “CLEAR; 
RETURN SS$_NORMAL 


-TITLE FOL ORT NER VAX-11 FDL Utilities 
-IDENT \v04-000\ 


-PSECT _FDLSOWN,NOEXE, PIC,2 
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FOLORIVER 
V 


VAX 


“11 FOL Utilities 
GET_LINE 


OFFC 00000 


o 
So 
SPARVAMNOOCSOOOO 
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6 
$F sooo08s 
0.00000000G 00 


9E 


TOwW—Dusnmn —$wowownd 
OOCOWM  —Mommm 


iSoseoctgpe 01:47: 


00000 STRING_DESC: 


74 AX-11 Bliss-32 V4.0=-74 
3 FDL. SRCJF toRiveR:830;1 


AB_UPCASED 


Hie “MAXLINE, FOLS$AB_CTRL 
$GL~ =paiany F DL$GL_PRINUM 
CTRL, FDLS$GL~ SECONDARY 
CNUM, FDLSAB_SECCTRL 
TREL 
GL “Spacte IER 
NUMBER FOLSGL SWITCH 
ct =PROTECTIO 
L-DATE oiae 
AB BCSTRIRG: FOL saa. COMMENT 
t SAB FDL_RAB, SYSSGET 
FDLSCODE,NOWRT, SHR, PIC,2 


+8eI pe Save R2,R3,R4,R5,R6,R7,R8,- 
a5TR 


DL 
REP PARSE SauGcK+12, R10 
TEM, ng 


L 
B 
S 
L3_ 
L$_ 
L$_ 
L$_ 
L$_ 
L$- 
L$_ 
L$_ 
L$_ 
L$_ 
L$_ 
L$_ 
L$_ 
L$- 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
LSA 
L 
L 


+> > o> ~ 


e 


8 
FD 
LI 
SY 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 
FD 


CoeoCe: & 
PAAHAAADSA 


TEM, R 
AB_CTRL+1, 4$ 
AB_CTRL+1, 3$ 
TRING 
T 


TRING, R6 
RING+4, R1 
RO 


WAM BVBKOMNMA DWT 3 
OUT eRVT OMFS OOUVUTVTVTCTC OU 
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C 
C 
DL_S 
DL_S 
DL™S 
INE+ 
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FDL. SRCJFOLDRIVER.B32; 


ZSBTTL ‘UPCASE' 
ROUTINE UPCASE : NOVALUE = 
i 
! Functional Description: 
Upcases the input Line while moving it into the upcase buffer 
Calling Sequence: 
UPCASE () 
Input Parameters: 
none 


Implicit Inputs: 

FOLSAB_LINE - Descriptor of the input Line 
Output Parameters: 

non 


! Implicit Outputs: 
FDLSAB_UPCASED = Descriptor of the upcased input Line 


Routine Value: 


i 
! 

i 
i 
i 
i 
' 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 

i 
! 

i 
none 
' Side Effects: 
none 

le 


LOCAL 

CHAR : REF VECTOR C ,BYTE J, 

UPCR : REF VECTOR C ,BYTE J; 

Point to the string of characters and the upcase buffer 


CHAR = .FDLS$AB_LINE C DSCSA_POINTER J; 
UPCR = .FDLSAB_UPCASED C DSCSA_POINTER J; 


: Loop for all the characters in a Line 
Incr 1 FROM 0 TO ( .FDLSAB_LINE C DSCSW_LENGTH ) - 1 ) BY 1 


! If the char. is a lower case letter upcase it 


} else just copy it over 


if ( ,CHAR C .1 J GEQU SMALL_A ) AND ( .CHAR C .J J LEQU SMALL_2Z ) 
— C.J ] = .CHAR C .1 J] AND ( NOT UPCASE_MASK ) 
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FOL. SRCJFDLDRIVER.B32; 


VAX-11 FDL Utilities 
SET_LINE 
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LINE, Save nothin 
. FOLSAB_ 


E_BLOCK) 


LSSSET 
(TPARS 
» RO 


RET 


-FDLSCODE + 0164 


none 


none 
Implicit Outputs: 


FDOLSAB_ITEM C DSCSA_POINTER J] = .TPARSE_BLOCK C TPASL_TOKENPTR J; 
Routine Base: 


TPARSE_ARGS; 
000000006 99 


14 bytes, 
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14 gep 198¢ OF gr its YPDL sre FDLDORIVER.B32; 


oer 


Cite 
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zn 


> 463 1128 1 ZSBTTL ‘SET_TERM' 

; 464 11 1 GLOBAL ROUTINE FDLSSSET_TERM = 
; 465 1181 1 !¢¢ 

; 4 11 ¢ iz 

; 46 11 1 ! Functional Description: 
; 468 1184 1! 

; 469 1185 1 ! Calling Sequence: 

; 470 11 $ 1! 

3; 471 11 1 ! Input Parameters: 

3; 47 1188 1! none 

3 47 1189 1! 

3; 474 1190 1 ! Implicit Inputs: 

3; 4675 1191 1! none 

3s 47 1136 1! 

s 67 1195 1 ! Output Parameters: 

; 478 11946 1! non 

; 479 1195 1! 

; 480 1198 1 ! Implicit Outputs: 

; 481 1197 1! none 

; 48 1198 1! 

; 48 1199 1°! Routine Value: 

>; 484 1200 1! 

>; 485 1201 1! 

: 486 1 8g 1! Side Effects: 

; 487 1205 1! none 

; 488 1206 1! 

; 489 1205 1 !-- 

; 490 1206 1 

; 491 1207 BEGIN 

; 49 1208 

:; 49 1209 TPARSE_ARGS; 

3 694 1210 

; 495 1211 FDLSAB_PRE_PARSE BLOCK C TPASL_STRINGPTR ) = 
3 $38 isi¢ -FDLSAB_PRE_PARSE_BLOCK C TPASL_STRINGPTR ) = 1; 
; 498 1214 RETURN SS$_NORMAL 

3; 499 1215 2 

: 500 1216 (1 END; 


0099 0000 -ENTRY FDLSSSET_TERM, Save nothing 
000000006 99 D 900¢ DECL FDL$AB_PRE_PARSE_BLOCK+12 
0 1 pO 0000 MOVL #1, RO 

00008 RET 


; Routine Size: 12 bytes, Routine Base: _FDLSCODE + 0172 


uv 
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FOLDRIVER Vv 
04000 5 


08 
05 


IMARY 4 FDL. SRCJFDLD 


RSBTTL ‘SET PRIMARY’ 
GLOBAL ROUTINE FDLSSSET_PRIMARY = 
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MAR 12-808-138 95 3t 54 Bt DL Riven o3oe uss 


oO 


Functional Description: 
Calling Sequence: | 


ovuan 


PRIMASK = .TPARSE_BLOCK C TPASL_PARAM J; 


! If this is the first call then clear an go else check to make sure a 
secondary was processed. 


IF .FDLSAB_CTRL C FDLSV_INITIAL 


5 el eh nb oh eed 


1 
! 
: 
of i 
08 | 
10 i Input Parameters: | 
1) none 
ig i Implicit Inputs: | 
1 } none 
1 i Output Parameters: | 
\ non | 
19 i Implicit Outputs: 
31 none 
2 i Routine Value: 
38 33 none ¥ | 
25 2 | Side Effects: 
26 2 ! none | 
e7 : | 
: ‘ 
i ; BEGIN | 
TPARSE_ARGS; 
yee H | 
H 2 NXTPRINUM; ! The next key or area primary number | 
; LOCAL 
PRIMASK; | 
| 
2 | 
é 


eu get DL SABACTRL C FDLS$V_INITIAL ] = _CLEAR | 


: If a secondary was processed the ok else null primary warning 
iF .FDLSAB_CTRL C FDLSV_SECONDARY } 
FDOLSAB_CTRL C FDLSV_SECONDARY J] = _CLEAR 


ELSE 
SIGNAL ( FDL$_NULLPRI ); 
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Von 000 SET_PRIMARY 12-08-1382 Oo gt et FDL.SRC HBepRiveR o3oe4 ° (8) | Vv 
: Fe } re ; ( NOT .FDLSAB_CTRL C FOLSV_DFLT_PRES J ) ; 
: 61 1 ug 4 ( .FDLSAB_CTRL C FOLSV_REPARSE J ) ° 
; 6 127 ) THEN F 
; 1 8 BEGIN ; 
; 564 127 : 
3 369 1280 ! If this primary has been defied before check to see if it's a : 
3 Sef : 4 key or area primary : 
: 68 1 He IF ( .PRIMASK AND .FDLSAB_PRICTRL ) NEQU 0 : 
; 569 1284 THEN 
3 374 1 Bg ! Is it a key, area, analysis_of_key or analysis_of_area primary : 
3 276 128 ' check the order in case the last was the same ; 
s OF 1288 : : 
: 574 1289 4 IF ¢ : 
; STS 1290 5 ( ; 
; 576 1291 6 ( .PRIMASK ) . 
; 577 1 3 5 AND : 
; 578 1293 6 ( FDLSM_KEY OR FDLSM_AREA OR FDLSM_ANALK OR FDLSM_ANALA ) F 
; 579 1294 4 ) NEQU 0 . 
; 580 1295 4 ; 
; 581 1296 ; ) THEN : 
3 o8¢ 1297 ; 
5; 3 1298 : ! What was the last primary ; 
> 584 1638 ! ; 
; 585 1300 4 IF ( ; 
; 586 1301 5 (.FDLSGL_PRIMARY EQLU FDLSC_KEY) F 
; 587 1306 4 : 
; 588 1303 5 (.FDLSGL_PRIMARY EQLU FDLSC_AREA) ; 
; 589 1304 4 OR : 
; 590 1305 5 (.FDLS$GL_PRIMARY EQLU FDLS$C_ANALK) ; 
3; 591 1306 4 OR ’ 
; 292 1307 5 (.FDLSGL_PRIMARY EQLU FDLSC_ANALA) : 
; * 1308 3 ) THEN : 
: 594 1309 3 , 
s 395 1310 3 ' Check to see if the number is correct > 
; 596 1311 3 : . 
; $97 138 3 IF .FDLSGL_PRINUM EQLU .NXTPRINUM ’ 
; 598 131 THEN | ; 
3; 599 1314 NXTPRINUM = .NXTPRINUM + 1 e 
; 600 1315 : 
> 601 1316 4 EGIN | : 
; 60 1317 4 SIGNAL( FOLS_OUTORDER,1,.FDLSGL_STMNTNUM ); ° 
; 60 1318 4 RETURN FDL SYNTAX . 
3; 604 1319 4 END : 
; 605 1359 4 | . 
: 606 1321 LSE ; 
; 607 1356 NXTPRINUM = 0 : 
; 608 1 ; 
; 609 1324 ELSE : 
3; 610 1325 : ; : 
: ot 13 $ Multiple primaries is only a warning : 
3 ei8 3 3 SIGNAL( FDLS_MULPRI,1,.FDLSGL_STMNTNUM ) : 
; 615 1330 ELSE . 
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v04-0 SET_PRIMARY 14-Sep-1984 12:31:1 FDL.SRC FDLORIVER -B32; 
; $16 1331 
: elt : § Is it a first key or area or ect. primary check the number 
: 619 1334 if ¢ -PRIMASK AND ( FOLSM_KEY OR FDLSM_AREA OR dite ANALK OR 
; 620 1335 DLSA -ANALA ) ) NEQU 0 
3 ? 1 } § THEN 
3 e } 3 If so check to see if the number is correct 
: 625 1340 iF .FDLSGL_PRINUM EQLU 0 
> 626 1341 
; 627 1 tg NXTPRINUM = 1 
; 628 134 EL 
; 629 1344 & BEGIN 
; 6350 1345 4 2 pa FOLS +S eae 1,.FDLSGL_STMNTNUM ); 
; 631 1 ‘3 4 RETURN FDL$_SYNTA 
3; 6 ; 134 END; 
; 6 1348 
: 634 1349 END; 
: 635 1329 
; $38 ! é] Flag it for Latter 
; e38 Hi FDLSAB_PRICTRL = .FDLSAB_PRICTRL OR .PRIMASK; 
; ot 132? Clear FDLSPRIMARY so that tparse can set it on return 
: 64 1337 FDLSGL_PRIMARY = _CLEAR; 
; eee 136 Indicate that a new primary has been found 
: 646 1361 FDLSAB_CTRL C FDLSV_NEWPRI }) = _SET; 
3; 647 1306 
; 648 136 ! Get ready for a new set of secondaries 
: 649 1364 : 
; o20 1303 INCR I FROM 0 TO (FDLSK_SCTRL_LONG-1) 
; 63¢ 1367 FDLSAB_SECCTRLL C .1 ] = _CLEAR; 
: 65 1368 
> 654 1369 RETURN SS$_NORMAL; 
: 655 1370 
; 656 1371 +1 END; 


«PSECT _FDLSOWN,NOEXE, PIC,2 


00008 NXTPRINUM: 
-BLKB 4 


-PSECT _FDLSCODE,NOWRT, SHR, PIC,2 


3 00008 ROVAS FDLSGL=PRIMUN Ra” 


38 0000006 00 


O3FC 00000 - ENTRY ppl agser. PRIMARY, Save R2,R3,R4,R5,R6,R7,- 
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> Wc esacie 


ss 
DL 
LSGL_PRIMARY, R7 
L$AB pRICTRE, R6 
B$SI R 
TPRINUM 

L$AB_CTAL, R3 

(TPARSE BLOCK), PRIMASK 
LSAB_CTRL 


28, FDLSAB_CTRL 


FDLSAB_CTRL, 2$ 
4, FDLSAB_CTRL 


DL$_NULLPRI 
TBSSIGNAL 
FDL$AB_CTRL+2, 4$ 
FDLSAB_CTRE+2, 11$ 
PRIMASK, #1052 

5$ 


L 
N 
a 
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F 
F 
F 
3 
F 
1 
# 
3 
3 
’ 
’ 
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ca 
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o9 | MAOORM—-RHOMTUX-70TC0 


RO 
PRIMASK, FDLSAB_PRICTRL 


RO, 8$ 
FDLSGL_PRIMARY, RO 
RO, #1T 


7 
FDLSGL_PRINUM, NXTPRINUM 


NXTPRINUM 

11$ 

WXTPRINUM 
EDLSGL_STRNTNUM 
#FDLS_MULPRI 
#3 LTB$SIGNAL 


RO, 11$ 

FDL S$GL_PRINUM 

#1, NXTPRINUM 
FDLSGL_STMNTNUM 
#FDLS$_OUTORDER 
#3, LTBSSIGNAL 
#FOLS_SYNTAX, RO 


PRIMASK, FOLSAB_PRICTRL 
FDLSGL_PRIMARY 


an—2— — 
er 
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63 01582 #32, FDLSAB_CTRL 


¢9 
CC CLR 
cf 128: CLRL 4 games | hte 
F5 28 8 Dd AOBLEQ #5, I, 1 
0 1 0009 MOVL 
000C 
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FOLDRIVER VAX=11 FOL Utilities 16- -$ep-1984 01: AX-11 Bliss-32 V4.0-742 Page 20 
v0e- SET _SECONDAR 1erge7} 882 95:34 33 FDL. SRCJFDLDRIVER.B32: 1 oe 8 
if ZSBTTL ‘SET_SECONDAR 
t ne ROUTINE PNP eSSeT SECONDARY = 
75 i 
ug } Functional Description: 
8 : Calling Sequence: 
$4 ! Input Parameters: 
8¢ i 
' implicit Inputs: 
¢ none 
6 i Output Parameters: 
fi } none 
89 i Implicit Outputs: | 
ay none | 
4 i Routine Value: 
i$ none 
95 i Side Effects: 
38 ; none 
98 1 i-- 
BEGIN 
TPARSE_ARGS; 
LOCAL 


SECBIT : LONG; 
SECBIT = .TPARSE_BLOCK C TPASL_PARAM J; 
See if the secondary has been defined before 
reat tients C .SECBIT J 


CONOUS WN OO 


If it has then see if it was a key segment thing 


if ( 
( ,SECBIT EQLU FDLSC_SEGPOS ) 
5, SeCaET EQLU FDLSC_SEGLEN ) 
( .SECBIT EQLU FDLSC_SEGTYP ) 
) THEN 
BEGIN 
If it’s out of bounds it's an error 
if .FDLSGL_SECNUM GTR 7 
THEN 


tt tt 4 AQOOODOOOCOOOCNO 


EAA AIANIEPD BAS AE CRP POPIPONDPONPODIPOPYINNNYNY 


Fe oe ot at at ot at at et ot ot et et et et et et et ek ek hh 


DNASE WO OONOUE WMO 


MoPoNofnononopoforys 
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Vv 640 SET_SECONDARY 18-308-} 882 9} Y 3 FDL. SRCJFDLDRIVER YR b3o4 
; 715 14 8 4 BEGIN 
; re 14 4 SIGNAL( FDLS_UNSECKW,3, 
; 7 1431 4 .FDLSGL_STMNTNUM 
: 718 14 ; 4 . TPARSE BLOCK "eas _TOKENCNT 
; 719 14 4 .TPARSE-BLOCK C TPASL-TOKENPTR  ); 
; 720 1434 4 RETURN FDL$_SYNTAX 
BIS aw 
3 £ 7 14 $ ELSE 
; 724 1438 
; 4 5 1226 If it has been defined before it's only a warning 
2 § 1441 SIGNAL( FDLS_MULSEC,1,.FDLSGL_STMNTNUM ) 
: 485 1268 — 
3 786 12% Flag it for next time (unless it's an ACL ENTRY - which can be repeated) 
; ie 1446 IF .SECBIT NEQU FDLSC_ACE 
; 73 1467 
; eee ieee FDLSAB_SECCTRL C .SECBIT J = _SET; 
; f $ 1329 Get ready for a new an wonderous qualifier 
; 738 1028 FOLSGL_QUALIFIER = _CLEAR; 
; 145 
; 740 1454 RETURN SS$_NORMAL 
: 761 1455 
; 762 1456 1 END; 
001C 00000 ENTRY FDLSSSET 337 tea} Save R2,R3,R4 
54 000000006 00 9€E 00002 OVAB FDLS$AB_SECCTR 
53 000000006 00 9€ 00009 MOVAB LIBSSIGNAL, 
52 000000006 00 4 00010 MOVAB FDLSGL_STMNTNUM 
50 20 AC D0 00017 MOVL 32(TPA RSet BLOCKS Ree BIT 
4C 64 50 €1 0001B BBC SECBIT, FDL SAB_ SECCTRL, 3$ 
00000086_~—=és«BFF 50 D1 OOO1F CMPL SECBIT, #154 
is 13 000 g BEQL 1$ 
00000085 =s- BFF 50 01 $8 CMPL SECBIT, #133 
9 13 0002F BEQL 1$ 
00000087 + #8F 8 D1 8 1 CMPL Set, #135 
12 8 BNEQ 
07 00000000G 00 Di OQOO3A 1$: CMPL FDOLSGL_SECNUM, #7 
1 15 00041 BLEQ 4$ 
7E 10 A 70 8 43 MOVQ 16(TPARSE te) -(SP) 
DD 47 PUSHL eee. STANTN 
DD 00049 PUSHL 
00000000G 8F DD 8 48 PUSHL ee UNSECKW 
$3 5 FB 1 CALLS Seth ce 
0 000000006 &F B60 0 4 HOVL TOL SYNTAX, RO 
: 0D C 2% PUSHL FDLSGL_STMNTNUM 
DD f PUSHL 
00000000G 8F ODD 6 PUSHL #FDLS_MULSEC 


roe 
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FDLDRIVER VAX=-11 FOL Utilities 18-56 Sep-1 AX-11 Bliss-32 V4.0-74 Page 2. 
vveait ti SET_SECONDARY 1 ety? 9}: $433 FDL. SRC FDLORIVER RB 3oe4 . (85 
63 FB 00066 CALLS #3, LIBSSIGNAL ‘ | 

08 i 3$: CPL SeCBIT, #8 : rid 

00 64 0 € BBSS  SECBIT, FDLSAB_SECCTRL, 4$ > 1448) 

000000006 00 04 00074 CLAL FDLSGL_QUALIFIER 3 1452 

: a2 cr aad ae 


; Routine Size: 126 bytes, Routine Base: _FDLSCODE + 0258 


00 00 
000000006 00 14 =AC 
04 AC 4 A 
50 1 OD oF 
04 0001 
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FOLORIVER VAX=11 FDL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-74 
(Os 000 START_STR 1 =300- 1382 Ob gtit POL SREIFOLDRIVER B3o0% 
3; 746 14 1 ZSBTTL  ‘START_STR' 
3; 745 14 1 GLOBAL ROUTINE FDLSSSTART_STR = 
me ie ie 
: p48 146 ! Functional Description: 
; 731 1488 : Initializes the string descriptor 
: Peg 1287 : Calling Sequence: 
: 738 1487 : } Called from the parse tables 
: 756 1469 1 ' Input Parameters: 
eo ey 
: 759 167 1 | Implicit Inputs: 
ce te ii 
: r6¢ 1475 1: Output Parameters: 
et BA 
: 765 1478 1 | Implicit Outputs: 
ie bee te toe 
: 768 1481 1 ! Routine Value: 
ewe 
: 771 1484 1! Side Effects: 
. 2 1485 1! none 
c- 77 1486 1! 
3 776 1487 1 !-- 
s TI 1488 1 
Be Pen 
: 778 1491 TPARSE_ARGS; 
: st 1438 2 ! Start the makings of a descriptor 
: 8 1495 ‘ FDLSAB_STRING C DSCSA_POINTER ] = .TPARSE_BLOCK C TPASL_TOKENPTR ); 
: 784 1497 : Process blanks 
: 786 1499 TPARSE_BLOCK { TPASV_BLANKS } = _SET; 
; 738 1501 RETURN SS$_NORMAL 
3; 789 1208 
; 790 150 END; 


RT_STR, Save nothin 
FDLSAB_STRING+4 


FDLSSSTA 
MOV 20(TPARSE BLOCK) 
BISB2 #1, 4(TPARSE_BLOCK) 
MOV. = AT, RO 
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; Routine Size: 18 bytes, Routine Base: _FDLSCODE + 0209 
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FOLDRIVER VAX-11 FOL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-74 Page 25 
VO-000 END_STR 127808-1 382 0339334 LPOL sre tpaiver:e3o64 . a8 
; 1504 1 2SBTTL ‘END STR’ ; 
; 79 1505 1 GLOBAL ROUTINE FDLSSEND_STR = : 

794 1 1 lee ; 
: 795 1 1 i ; 
3; fr 1 1 ! Functional Description: $ 
3 799 1 $9 1 } 4 " : 
; £38 ! 19 ! Terminates the processing of a string and determines the length : 
: 90 | 3 Calling Sequence: 
; 4 1313 ! ; Called from the parse tables : 
> 804 1316 1! Input Parameters: | ; 
; 805 13it : none : 
: bo? 1519 1! Implicit Inputs: | ; 
; ‘4 13 ? : none | ; 
: af 1 : 1 | Output Parameters: ; 
Dee Bl he oot 
: B13 1525 1 | Implicit Outputs: | : 
ee ie tho Ht 
: 816 1528 1 ! Routine Value: : 
Oe 28 en : 
; 819 1331 1 | Side Effects: 2 
3 530 15 ¢ 1! none : 
3 1 153 1: . 
3 BS¢ 1534 1 !-- : 
3 Be 1535 1 | : 
; 824 1536 BEGIN | : 
; 856 1336 LOCAL : 
; 859 1539 SAVE_LEN : WORD, | : 
; B99 1e29 2 CuT_CEN : WORD; : 
° | e 
; 830 1348 TPARSE_ARGS; : 
a | . 
; a3 1344 TPARSE_BLOCK C TPASV_BLANKS ] = _CLEAR; ; 
; 83 1366 The size is from where we are minus from where we is ; 
3 836 1548 FDLSAB_STRING C DSC$W_LENGTH J = .TPARSE BLOCK [ TPASL_STRINGPTR J - : 
: tH 1367 -FDOLSAB_STRING C DSCS$A_POINTER J; | : 
; i 132) : If the last char was a ‘'!" then subtract one | : 
: 841 1388 iF .TPARSE_BLOCK C TPASB_CHAR ) EQL COMMENT_MARK | ; 
; § 1355 FDLSAB_STRING C DSCS$W_LENGTH ] = .FDLSAB_STRING [ DSCS$W_LENGTH ) - 1; : 
; rh 1337 Save this length : 
; 49 1388 SAVE_LEN = .FDLSAB_STRING C DSC$W_LENGTH ); ; 


} 


k 10 | 
FDLORIVER VAX=11_ FDL UtiLiti ~Sep-1984 01:47:4 . ~32 v4.0- | 
voe-000" $ - We=3ep-1986 42:31:17 EDL LSREdPDLDRIVER: B36; Pages 


<" 


END_STR -Sep- FDL. SRCIJFDLDRIVER.B32; 

; 8 } $ Remove trailing blanks | : 
; 851 ef STRSTRIM ( FDLSAB_STRING,FDLSAB_STRING,CUT_LEN ); : 
3 § ; 2? | Set the trimmed Length : 
; 839 $ FDLSAB_STRING C DSC$W_LENGTH J = .CUT_LEN; | : 
; 637 136 } Remove any leading white space from the string | : 
; 539 1271 FDLSAB_STRING C DSCS$W_LENGTH ] = TRIM_LEADING (); | ; 
3 $0) 1378 Remove any quotes from the upcased string ; 
i bes 1329 FDLSAB_STRING C DSC$W_LENGTH ] = EXTRACT_QUOTE (); | ; 
3 $0? 1377 Adjust the pointer so that we are looking into the original input Line | : 
; 867 1579 FDLSAB_STRING C DSCSA_POINTER ] = .FDLSAB_STRING C DSCSA_POINTER ] - | : 
; 868 1580 -FDLSGL_MAXLINE; ; 
; 869 1581 : 
; 870 1386 ! Restore the original Length | : 
; 871 158 : ; 
: o7e 1288 FDLSAB_STRING C DSCSW_LENGTH J] = .SAVE_LEN; ; 
> 874 1586 ! Remove trailing blanks | ; 
; 875 1587 : 3 
: 378 1358 STRSTRIM ( FOLSAB_STRING,FDLSAB_STRING,CUT_LEN ); ; 
: 878 1590 ! Set the trimmed length ; 
; 879 1591 : : 
: rt] 1238 FDLSAB_STRING C DSCS$W_LENGTH J] = .CUT_LEN; ; 
; aS 1238 Remove any leading white space from the string : 

: Bh 1396 FDLSAB_STRING C DSCS$W_LENGTH ] = TRIM_LEADING (); | 

; aa8 1298 Remove any quotes from the original string | 

3 888 1600 FDLSAB_STRING C DSC$W_LENGTH ) = EXTRACT_QUOTE (); 

: 890 1608 RETURN SS$_NORMAL; | 

; 891 160 

; 892 1604 1 END; | 

| 

| 

007c 000 ENTRY FDLSSEND_STR, Save R2,R3,R4,R5,R6 ; 1805. 

26 $0008 9 VAB EXTRACT _GUOTE, : 

V 9E MOVAB TRIM_LEADING, 3 

4 BR ORS G 9E 19 MOVAB STRSTRIM, R4 3 

3 G i 1 MOV FDLSAB_STRING, R3 ; | 

t 4 4 if SUBL #4, SP : 

oe AC 1 BA § BICB #1, 4(TPARSE BLOCK) 3 1346 | 

63 C AC 04 AS A3 00025 SUBW FDLSAB_STRING+4, 12(TPARSE_BLOCK), - 37 49 | 


see 


VAX=11 FDL Utilities 
END_STR 


21 18 AC 9 8 B CMPB 
a 
52 80 3 1$: 

4008 F 6B PUSHR 

; DD A PUSHL 
64 fe C CALLS 
6 8 8 F MOVW 
6 fe tg CALLS 
6 BO 0004 MOVW 
6 98 F 8 48 CALLS 
6 B 4B MOVW 
04 a3 000000006 98 . Opes sues 
4008 HE 8B 0089 PUSHR 
3 0D 00050 PUSHL 
64 03 FB 0005F CALLS 
63 6€ B80 444 MOVW 
65 00 FB 0006 CALLS 
63 50 BO 00068 MOVW 
66 9° FB Babee CALLS 
6 0 BO Q006E MOVW 
50 01 00 00071 MOVL 

04 00074 RET 


3; Routine Size: 117 bytes, Routine Base: _FDLSCODE + 02EB 


; AX-11 Bliss-32 V4.0-74 
FDL.SRC FDLDRIVER B32; 


$AB_STRING 
TPARSE BLOCK), #33 


He STRING 


TRST 


TRING 
FDL$AB_STRING+4 
SAVE vila FDLS$AB_S TRING 
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VO-000 EXTRACT_QUOTE 122868 382 ee LPO sre FDOLDORIVER.B32;1 (135 \ 
; 894 1605 1 ZSBTTL ‘EXTRACT_QUOTE’ : 
; 895 1606 1 ROUTINE EXTRACT_GUOTE = : 
; 538 1607 1 !+4¢ ‘ 
; a 1988 1: ‘ 
; 898 1609 1 ! Functional Description: ‘ 
; 899 1610 1! ‘ 
: sis 1313 i It also extracts out embedded or bracketing quotes or apostrophes ‘ 
; Op8 1818 1! Calling Sequence: ‘ 
; 1614 1! ‘ 
> 904 1615 1! Called from END_STR ; 
; We 1916 1! : 
; 906 1617 1! Input Parameters: ; 
; 907 1618 1! none ‘ 
> 908 1619 1! ‘ 
; 909 1620 1 ! Implicit Inputs: ‘ 
; 910 1621 1! none ° 
>; 911 16 ¢ 1! : 
3 aig 16 1 ! Output Parameters: | e 
7; 91 16246 1! ; 
; 914 1625 1! : 
; 95 1626 1! Implicit Outputs: ‘ 
; 916 1627 1! none ° 
; 917 1628 1! ; 
; 918 1629 1 ! Routine Value: ; 
; 919 16350 1! The new string length - after the quotes are removed. ‘ 
3 330 1631 1! ‘ 
s Fei 1o36 1! Side Effects: ; 
3 as¢ 1633 1! none : 
s; 9e 1634 1! | ; 
: 9246 1635 1 !-- ; 
; 925 1636 1 ; 
> 926 1637 2 BEGIN : 
; Per 1638 ‘ 
; 928 1639 LOCAL ‘ 
3 3¢3 1640 QCHAR : BYTE, . 
3; 1641 J : LONG, ° 
3; 931 1o6¢ NEW_LEN : LONG, ‘ 
3 338 164 CUT_LEN : LONG, ‘ 
; 9 1644 STR : REF VECTOR -BYTE J, ° 
; Bee 1963 TMP_STR : REF VECTOR C ,BYTE J; | : 
3 4) ie4? NEW_LEN = .FDLSAB_STRING C DSCSW_LENGTH J; ‘ 
3 338 1848 Now extract out any bracketing or embedded quotes or apostrophes 
3 940 1651 IF .FOLSAB_CTRL C FDOLSV_QUOTE_PRES J] OR .FDLSAB_CTRL C FDLSV_APOST_PRES ] 
3; 941 1036 THE 
: ak 165 BEGIN 
; 94 1654 
> 964 1655 CUT_LEN = .FDLSAB_STRING C DSCS$W_LENGTH J; 
3 Bez 1996 TMP_-STR = FOLSSGET_VM ( .CUT_LEN”); 
; ot 1638 STR = .FDLSAB_STRING C DSCSA_POINTER J; 
3 949 1660 IF .FDLSAB_CTRL C FDLSV_QUOTE_PRES ) 
; 950 1661 THEN 


N 10 
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V o600 EXTRACT_QUOTE 1278671 382 9553434 LPDL.sRe tba IVER {83064 . ad 
3 92 196¢ QCHAR = ‘'"* 
3; 9 § 166 ELSE IF .FDLSAB_CTRL C FOLSV_APOST_PRES J 
; 9 1664 THEN 
5 2 1992 QCHAR = ''''; 
; 328 166? CHSMOVE ( .CUT_LEN,.FDLSAB_STRING C DSCSA_POINTER J],.TMP_STR ); 
; 958 1988 wew Len = 0; 
>; 959 1670 J = 9; 
: 960 1671 
; 961 1976 4 WHILE .J LEQ (.CUT_LEN = 1) | 
; 4) 1675 3 dO 
; 96 1674 4 BEGIN 
> 964 1675 4 
3 965 1978 4 1 Now copy the string back, but stripping the QCHARs 
3 + ¢ 1ore 2 according to the rules that embedded '” ==> "and '' ==> ' 
; 968 1679 4 IF .TMP_STR C .J J] EQLU .QCHAR 
; 969 1680 4 THE 
: 970 1681 5 BEGIN | 
; 97) 1986 5 
; 38 1685 5 ! If we're not at the beginning or end of the string, 
3 arr 1088 é copy one qchar and skip the next | 
; 975 1686 6 IF NOT ((.J EQLU 0) OR (.J EQLU (.CUT_LEN-1))) 
; 976 1687 5 THEN 
3 977 1688 6 BEGIN 
; 978 1689 6 
; 979 1690 6 IF .TMP_STR C .J+1 J] EQLU .QCHAR 
: 980 1691 6 THEN 
3; «981 1036 6 de 4 15 
; 982 16935 6 
3 983 1694 6 STR C_.NEW_LEN ] = .TMP_STRC .J J; 
> 984 1695 6 NEW_LEN = .NEW_LEN + 1 
; 985 1696 6 
; 986 1697 5 END; 
; 987 1698 5 END 
>; 4988 1699 5 
; 989 1700 4 ELSE 
; 990 1701 4 ! Just copy the character back and bump the count 
; 991 1706 4 ! 
; 99 1703 5 BEGIN 
: 99 1704 5 STR C_.NEW_LEN ] = .TMP_STRC .J ]; | 
3 994 1705 5 NEW_LEN = .NEW_LEN *+ 1 
3; 995 1706 4 END; 
; we 1707 4 
3; 997 1708 4 de J¢ 13 
; 998 1709 4 
3; .999 1710 END; ! do 
; 1000 1711 
3; 1001 Har ' Release the tmp string 
; 1008 171 : 
; 100 1714 FOLSSFREE_VM ( .CUT_LEN,.TMP_STR ); 
3; 1004 1715 
3; 1005 fat END; ' JF QUOTE OR APOST PRESENT 
; 1008 171 
3; 100 1718 ! The routine value is the new length 


ee | 
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STRING, 
Q_LEN 
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FDLSAB 
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$AB_ 


B 
FDLSAB 
RO, NE 
FDL 


Sav 
FDLSA 
1$ 
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- WORD 
MOVAB 
MOVZWL 
MOVL 
TSTB 


OFFC 00000 EXTRACT_QUOTE: 


$6 Booooodos 


67 


CTRL+1, 8$ 
Q 


» FDLSSGET_VM 
+, TMP_STR 
$aB_S 


RO 
FOL 


000000006 
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TRING+4, RO 


R 
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RO, ST 


» QCHAR 
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STR], QCHAR 
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(J) CTMP 


J)CTMP_STRJ, (NEW_LEN)+CSTRI 


8A48 


_LEN, -(SP) 
FDLSSEREE_vM 


—- 3 


AImVwWw 
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7E 


000000006 9° 
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-FDLSCODE + 0360 


136 bytes, Routine Base: 
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Release the tmp string | 
FDLSSFREE_VM ( .CUT_LEN,.TMP_STR ); 
END; ! IF THERE IS LEADING WHITE SPACE 

The routine value is the new Length 

RETURN .NEW_LEN; 
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; 1070 1780 CUT_LEN = .FDLSAB STRING C DSCS$W_LENGTH J; | : 
; Ist \f TMP_STR = FDLSSGET_VM ( .CUT_LEN”); ; 
; 1978 Vy STR = .FDLSAB_STRING C DSCSA_POINTER J; ‘ 
3 Rte \f 5 CHSMOVE ( .CUT_LEN,.FDLSAB_STRING C DSCSA_POINTER J,.TMP_STR ); : 
i id 
; 1079 17 § NEW_LEN = 0; ; 
; 1078 1788 J = 0; : 
; 1079 1789 FLAG = _CLEAR; : 
; 1080 1790 3 
3 198) 1791 3 WHILE .J LEQ (.CUT_LEN = 1) : 
3: 10 ¢ P36 dO ; 
3 fi 1795 4 BEGIN 3 
; 10 1794 4 3 
3 HH 172? ? Now copy the string back, but stripping the white space ; 
Py H | . 
: 1087 1999 5 IF (.TMP_STR C .J J] EQLU .BLANK) OR (.TMP_STR C .J J EQLU .TAB) | ; 
; 1088 1798 4 THE : 
; 1089 1799 5 BEGIN 3 
3; 1090 1800 3 
3; 1091 1801 ' If we have seen the a non-white character ; 
: 1098 1306 ! just copy this blank or tab Like any other char 3 
: 109 180 ! 3 
3: 1094 1804 If .FLAG 3 
: 1095 1805 THEN : 
; 24 1308 6 BEGIN ; 
; 109 1807 6 | 3 
; 1098 1808 6 STR C_.NEW_LEN ] = .TMP_STRC .J J; 5 
3 1099 1809 6 NEW_LEN = [NEW_LEN + 1 | 3 
3 1100 1810 6 3 
3; 1101 1811 5 END; 3 
; 1106 a 5 END 5 
3; 110 1815 4 3 
; 1104 1814 4 : Just copy the character back and bump the count : 
3; 1105 1815 4 ! F 
: 1106 1318 5 BEGIN 3 
> 110 181 : 
3 110 1818 FLAG = SET; | $ 
3 110 1819 STR C_.NEW_LEN ] = .TMP_STR C .J J; ; 
3111 1820 5 NEW_LEN = .NEW_LEN + 1 ; 
3111 1821 5 3 
3111 18 § 4 END; 3 
3111 13 4 3 
3 111 1824 4 je 4d # Vg 3 
3111 1825 4 3 
$111 1826 END; ! do ; 
3111 13s 3 
3111 1828 3 
3 111 1963 3 
3 11 1830 3 
3 11 1831 s 
3 11 1 § 3 
3 11 1 3 
3 11 1834 3 
311 1835 3 
3 11 18 ; 
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FDLS$AB_STRING, RO 
EN 

TMP, BLANK 
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8$ 

RO CUT_LEN 

#1, FDLSSGET_VM 

RO, TMP S 

FDLSAB_STRING+4, RO 

CUT_LEN, (RO), (TMP_STR) 
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TL ‘SET DATE _TIME' 
AL ROUTINE FOLSSSET_DATE_TIME = 


Functional Description: 


Sets up the date/time quadword 


Calling Sequence: 


Called from the parse tables 


Input Parameters: 
none 


Implicit Inputs: 
none 


Output Parameters: 
non 


Implicit Outputs: 
none 


Routine Value: 


Side Effects: 


none 


BEGIN 
TPARSE_ARGS; 


LOCAL 
TEMP _DESC : DESC_BLK; 


We must adjust the pointer so it points to the upcased buffer 
TEMP_DESC C DSCSW_LENGTH ] = .FOLSAB_STRING C DSC$W_LENGTH J; 
TEMP_DESC C DSCSA_POINTER J] = .FDLSAB_STRING C DSCSA_POINTER J) + 
-FDLSGL_MAXLINE; 

If there is an error signal it and return failure 
if wet SYSSBINTIM( TEMP_DESC,FDLSAL_DATE_TIME ) 

BEGIN 

BUILTIN CALLG; 

TPARSE_BLOCK C TPASL_PARAM ) = FDLS_INVDATIM; 


CALLG( .TPARSE_BLOCK,FOLSSSYNTAX_ERROR ); 
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3; Routine Size: 
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189 RETURN 

1837 wing 

1 38 : 

1900 RETURN SS$_NORMAL 
1901 

1902 END; 
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FDL. SRCJFDLDRIVER.B32; 


S$SET_DATE_TIME, Save nothing 


"8, 

FDLSAB_STRING, TEMP_DESC 
FDLSGL-MAXLINE, FDLSAB_STRING+4, - 
TEMP +4 


ine DESC 

#2, SYSSBINTIM 

RO, 1$ 

#FDLS_INVDATIM, 32(TPARSE_BLOCK) 
(TPARSE_BLOCK), FOLS$SYNTAX_ERROR 


2$ 
#1, RO 
RO 
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ZSBTTL "SET COMMENT’ 
GLOBAL ROUTINE FOLSSSET_COMMENT = 


—COMM 
5 1903 1 
3 11 1904 1 
3 119 1905 1 
3 1198 19 $ 1! 
3; 1199 1907 1 ! Functional Description: 
: 1200 1908 1! 
3; 1201 1909 1! Sets up the comment descriptor 
3 3 8¢ 1910 1! | 
; 120 1911 1 ! Calling Sequence: 
: 1204 1318 1! | 
3; 1205 191 1! Called from the parse tables 
: 1206 1914 1! 
; 120 1915 1! Input Parameters: | 
: 1208 128 1! none 
3; 1209 191 1! 
; 1210 1918 1! Implicit Inputs: 
3 1211 1919 1! none 
3 7 \¢ 1920 1! 
3; 121 1921 1 ! Output Parameters: 
i 12i4 1928 1 | 
3 1215 19 1! 
: 1216 1924 1 ! Implicit Outputs: 
3; 1217 1925 1! none 
3 1218 1926 1! 
: isi? 1927 1 ! Routine Value: 
3; 1220 1928 1! none 
3 1221 1929 1! 
3 \ss¢ 1930 1! Side Effects: 
3 122 1931 1! none 
3 1$$¢ 1336 : 3 
3; 1225 1933 1 !-- 
3 1226 1934 1 
3 1227 1935 BEGIN 
3 1228 1936 
3 it 94 1937 TPARSE_ARGS; | 
3 \s 1938 
: 1s3) 1323 The comment is the rest of the Line 
3 1338 1941 FDL$AB_COMMENT DSCSW_LENGTH J] = .TPARSE_ BLOCK [( yer STRINGCNT ) + 1; 
3 Sze 1308 2 FDL$AB_COMMENT C DSCSA_POINTER ] = .TPARSE_BLOCK C TPASC_STRINGPTR J - 1; 
: \se8 H+ +4 Adjust the pointer so that we are looking into the original input Line 
; 1238 1966 FDLSAB_COMMENT C DSCSA_POINTER J] = .FDLSAB_COMMENT [ DSCSA_POINTER ] - 
3: 1239 194 -FDLSGL_MAXLINE; 
: 1st9 1948 
3 1241 1949 RETURN SS$_NORMAL 
3 1st¢ 1950 
3 124 1951 1 END; 
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ZSBTTL _'SYNTAX_ERRROR' 
GLOBAL ROUTINE “FDLSSSYNTAX_ERROR = 


Functional Description: 
Syntax error has two functions: If called with the argument fdl$_abkw 
or fdlS_abprikw it checks if there has been an ambigous keyword, if 
there has been then it signals the error else it returns failure. If 
it is called with some other error it is signaled and return is normal. 
Calling Sequence: 
Called from the parse tables 
Can be called from a bliss routine by: 
BUILTIN CALLG; 
CALLG( tparse_block,FDLSSSYNTAX_ERROR ) 
Input Parameters: 
Error code in the tpa$l_param field of the tparse_block 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 

ss$_normal or 0 (see above) 
Side Effects: 

Signals an error 


BEGIN 
TPARSE_ARGS; 

LOCAL STATUS : LONG; 

BIND CODE = STATUS : BLOCK C 4,BYTE J; 


: Get the error code passed to us by the parse tables 
STATUS = .TPARSE_BLOCK C TPASL_PARAM J; 
! If this is a ambiguity check and there is none return failure 


J 11 
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STATUS 


N 
RETURN 0; 


if NOT ( .CODE C STSSV_SEVERITY J] EQLU STSSK_INFO ) 


Say that there is an error on this secondary 
FDLSAB_CTRL C FDLSV_WARNING ] = _SET; 


! Signal the error with: 


! 
! 
: a) Line number 

! b) Length of the current token 

; ¢) Pointer to the token 

! d) Length of the remainer of the Line 
e) Pointer to the rest of the Line 
S 


 TPARSE BLOCK C TPASL_ PARAM J,5, 
-FDLSGL_STMNTN 


*pasL _TOKENCNT J, 
TPASL~TOKENPTR 

TPASL-STRINGCNT J, 
TPASL-STRINGPTR J 


SIGNAL ( 


* TPARSE “BLOCK 
RETURN SS$_NORMAL 
END; 


); 
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000000006 8F 33 ot 8 06 
000000006 8F 50 "3 6 
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03 50 63 0? i3 8 
000000006 90 8 8 
0 AC 7D 
7E 1 AC 70 
000000006 i DD 
DD 
20 Ag dD 
81 00 
04 00 
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! else signal the error 
If ( ( .STATUS EQLU FDLS$_ABKW ) OR ( . EQLU FDLS$ ABPRIKY ) ) AND 
, ("NOT .TPARSE_BLOCR C TPASV_AMBIG J ) 
1 


AX-11 Shite 
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If this is not a information message the set some error flags 


) 


Leora ERROR, Save nothing 
(TPARSE BCOCK), * ATUS 
ATUS, #FDLS_ABKW 
ATUS, #FDLS_ABPRIKW 
PARSE BLOCK), 4$ 
as 


FD 
32 
ST 
1$ 
$I 
$ 
6(T 
#0, 
33° 
#8 
sf 
6 
FOL 
8 
3 
a 
#1 


#3, CODE, 
FDLSAB_C 
fPARSE Brock) -(SP) 
Toate LOCKS, -(SP) 
CTPARSE BLOCK) 
, SSTGNAL 
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; Routine Size: 75 bytes, Routine Base: _FDLSCODE + 04(8 
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GAT 
3; 1337 431 ZSBTTL ‘NEGATE’ 
3 1 5 44 1 GLOBAL ROUTINE FDLSSNEGATE : NOVALUE = 
: 1829 a 
; \ 1 o4 Functional Description: 
; “8 049 Produces the negative version of a number 
: | 5 031 Calling Sequence: 
; ? 038 Called from the parse tables 
: 1349 $38 1 | Input Parameters: 
: }aey $89} i _ 
: 135 058 1°! Implicit Inputs: 
: 1388 DE Bnecpetae~ Ree 
3 1354 060 1! 
3; 1355 061 1 ! Output Parameters: 
: 1389 $68 1 | 
> 1358 064 1 | Implicit Outputs: 
3 ; 59 $002 : } none 
: 1361 $e ' Routine Value: 
: 1388 G3 1} none 
: 1365 $o74 1 | Side Effects: 
3 1366 $078 1! none 
; 1367 07 1! 
3; 1368 2074 1 !<- 
3: 1369 soe 1 
; 1370 076 BEGIN 
3 1371 2077 
3 1376 sore TPARSE_ARGS; 
; 13%4 94 Just negate the number 
; 1398 082 FDLSGL_NUMBER = -.FDLSGL_NUMBER; 
{139 OB RETURN 
: 1379 085 
3; 1380 2086 1 END; 


0004 00000 
38 000000006 09 9E 0000 MOVAB 
6 6 F 00 1 ha 


000¢ 
Routine Size: 13 bytes, Routine Base: _FDLSCODE + 0513 
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-ENTRY FDLSSNEGATE, Save R2 3 2044 
FDLSGL_NUMBER, R ; 
FDLSGL-NUMBER, FDLSGL_NUMBER ; 2082 | 
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; Routine Size: 
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4 LORAYER 


: NOVALUE = 


NE FDLSSCLR_BLANK 


"CLR BLANK’ 
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Functional Description: 


Clears the Tparse blanks flag 


Calling Sequence: 


Called from the parse tables 


Input Parameters: 
none 


Implicit Inputs: 
none 


Output Parameters: 


none 


Implicit Outputs: 
none 


none 


TPARSE_ARGS; 


TPARSE_BLOCK [ TPASV_BLANKS J] = _CLEAR; 


' Just clear the fla 
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1 FOL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-74 Page 45. ; 
READ_ERROR 10=886-1982 P3847 PDL .SRCJFDLDRIVER- B35; 1 at), ve 


ZSBTTL purtne reCheneee 


GLOBAL ROUTINE FOCSSREAD_ERROR : NOVALUE = 


' j 
Functional Description: 


This routine will signal an rms error and stop execution if the RMS 
error is NOT end of file. It is to be used for detecting errors 
during rms $GETs or S$READs. 

Calling Sequence: 
This routine is call as an AST by RMS 

! Input Parameters: 

AST argument block which has a pointer to a RAB 


Implicit Inputs: 
none 


3 1 1 

s 1 1 

3 3 1 

3 1 1 

3 1 1 

3 3 1 

3 1 1 

s 1 1 

3 1 1 

3 7 1 

3 1 1 

3 7 1 

s 1 1 

3 1 1 

: | : 

. : | 
:1 1 | 
: 1836 ssh | 
; 1537 : 1 ! Output Parameters: 
aS ot De | 
: 1540 324 1 ' Implicit Outputs: 
3 120] , none | 
: 1303 45 1! Routine value: | 
RR ES i 

; 1268 $e ! Routines Called: | 
; 1348 e230 | SIGNAL_STOP | 
: 1550 $58) | i side Effects: | 
Bite a a | 
. ee 
Hae ie 
: 1557 35 BUILTIN | 
: 1889 é vie | 
: 1560 26 BIND 

3 130) $s AST_BLOCK = AP : REF VECTOR C ,LONG ); | 
; 1268 6 LOCAL | 
: 1564 6 RAB : REF BLOCK -OYTE J, 

3 1565 6 FAB : REF BLOCK -BYTE J, 

3 1296 6 NAM : REF BLOCK BYTE J; 

: 1208 79 Get the rab (Pointer to by the second ast parameter) 

; 1390 2 RAB = .AST_BLOCK C 1]; 

: 1572 74 ! If this is only an end of file then return 


rrr Te Pere Tere TEre rere TEEPE TE Eee ee eee eee eee ee rere re rere re rere rererererererererererere rere ee ys 


fo Jo Te Te] 

Wo 
OOOO OODOOWOOODOOOONVN YS x= 
SOONAMEWN SH OVOONAUES WN -"OVOONOU wi 


SSSLESLANLSSSLEAL 


* al al * ak val sabeal val al eal walval eal eal tal al ealeal eal eal eal eal eal 
— 


Ssssss 


Oe a ed dd dd 
SSF 
uw 


APAAACAAAAAO 


Pe Se Se Se Se Oe Se Se Fe Se Ge SH Te Se Se Fe Ge Ge Be Se BO Ss Be Se Se Se Se Ge Se Fe Oe SHS Se Ss OH Se OH Oe BH Oe Oe Oe Be ee 


— tt st I I IBM QHOODOOCOOOCOOWOWOWO 
DONOUS WO OONOUS WN 
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is C RABSL_STS J] EQLU RMS$_EOF 
RETURN; 

Now get the fab it points to 
FAB = .RAB C RABSL_FAB J; 
Get the name block 
NAM = .FAB C FABSL_NAM J; 
Signal the FDL error with the best file name string 
First try the resultant string 
IF_.NAM [C NAMSB_RSL J] NEQU 0 
THEN 

STRINGBESE E BEEEACBENGTEA?S"= Mn’ cMMRRBCEba 
Next try the expanded string 
ELSE IF .NAM C NAM$B_ESL J] NEQU 0 
THEN 


BEGIN 
STRING_DESC [ DSC$W_LENGTH ] = .NAM C_NAMSB_ESL J; 
STRING_DESC DSCSA_POINTER ] = .NAM C NAMSC_ESA } 


If all else fails use the name string 


NGTH ] = .FAB C FABSB_FNS J; 
INTER ] = .FAB C FABSC_FNA 3 


SIGNAL_STOP( .RAB f RABSL_CTX J.1 STRING DESC 
“RAB C FABSL-STS 3,.RAB C FABSL_STV ) ) 


END; 
000¢ 000 ENTRY FDLSSREAD_ERROR, Save R2,R3 
3 00000000' 00 9 0 MOVAB STRING DESC, R3 
2 4 AC Dd MOVL 4(AST BLOCK} RAB 
0001827A = BF 8 A D4 CMPL 8 (RABY, #98938 
4 1 BEQL 6-48 
51 3¢ A2 00 0001 MOVL 60(RAB) , FAB 
0 28 al dO 00018 MOVL 40(FAB). NAM 


oe Ol igsn3¢ PB el og 
FOL.SRCJFDLDORIVER.B32; 
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91 bytes, Routine Base: 


; Routine Size: 
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2320 


; 1618 
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SRMS_ERROR 4 93594513 }FbcoRI 
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14-Sep-1984 12 FDL. SRCIJFDLD 


ZSBTTL  'FOLSSRMS_ERROR' 


GLOBAL ROUTINE FBLSS$RMS_ERROR : NOVALUE = 


Functional Description: 


This routine will signal and rms error and stop execution. It is 
to be primarly used for detecting errors during asynchronous operations 


Calling Sequence: 
This routine is call as an AST by RMS 


! Input Parameters: 


VIFWN OO ONOULSWN—O 


yA EEE EEE EE LEE 


= 


Ses 


FFSEEARADAAAAADE REE RE REE 
WN 9 DONAUSWN “OC ODNOUSWNH—OVOOn 


SESset 


ee a ee ee ee ee ee a ee ee ee ee el ee ee ed 
OunFwn—ovod 


PROPOPOPOPIPOPONONOPPOPUPONIPUPINNUR) 2 2 2 
e 


SPAOAAO 
SN NN ™ 


AST argument block which has a pointer to a rms block 
Implicit Inputs: 
none 
Output Parameters: 
Implicit Outputs: 
none 
Routine Value: 
none 
Routines Called: 


SIGNAL_STOP 


Side Effects: 
nene 


BEGIN 
BUILTIN AP; 


BIND 
AST_BLOCK = AP : REF VECTOR C ,LONG J; 


LOCAL 
RMS_BLOCK : REF BLOCK C ,BYTE J; 


Get the rms control block (second argument in the block) 

RMS_BLOCK = .AST_BLOCK ( 1 J; 

! NOTE: We use the RABS$x_zzz codes but they are valid for the FAB as well 
Signal the FDL error 

SIGNAL_STOP( .RMS_BLOCK C RABSL_CTX J, 


vo-000" = OLSSRmSUERROR' *** 1eSE0c1984 $U:47:45 YAS TDABL/BEGRE U4: S53 rase 8 


af an .RMS_BLOCK C RABSL_STS J,.RMS_BLOCK [C RABSL_STV J ) | 
; END; | 
| 
| 
000 .ENTRY FDLSS$RMS_ERROR, Save nothing 22 

30 04 A p MOVL 4 (AST_BLOCK), RMS BLOC 
E : AO 7D mova g RMS BLOCK), =(SP) 78 
1 AO 00 A PUSHL 4 (RAS BLOCK) 77 

000000006 00 03 FB D CALLS #3, LIBSSTOP 

04 00014 RET 2380 


; Routine Size: 21 bytes, Routine Base: _FDLSCODE + 0595 


; 1680 2381 1 
| 


' Functional Description: 


12 | 
FOLDRIVER VAX-11 FDL Utilities 14-36 1984 01:47:4 AX-11 Bliss-32 V4.0-74 P 
v04- FDLSSRMS_OPEN_ERROR 1e-8ep-19 4 Our EFDL.sRe HaepRivER o3or4 age 339 
¢ ¢ ZSBTTL ‘FDLSSRMS_OPEN_ERROR' 
6 ? GLOBAL ROUTINE FBLSSRAS_OPEN_ERROR : NOVALUE = | 
685 5 i | 

6 


Routine Value: 
none 


mMrror 


rrr 
OE EE EE ET EET Ree ee ST 


Routines Called: 
SIGNAL_STOP 


Side Effects: 
none 


6 | 
688 8 ' This routine will signal an rms error and stop execution. It is 
689 88 to be primarly used for detecting errors during file opens. | 
31 i Calling Sequence: | 
33 This routine is call as an AST by RMS 
99 Input Parameters: 
44 AST argument block which has a pointer to a FAB | 
99 i Implicit Inputs: | 
400 : none 

401 ! 
40 ' Output Parameters: | 

40 : 
404 } | 

5 : Implicit Outputs: 

0 none | 
i 

i] 

i 

i 

i 

i 

i 

i 

i 

i 


BEGIN 
BUILTIN 
AP; 


MoNMonofronofny 
RRWNOOH NAAR WN OSB IS AR WU OSB ERR LO 


IND 
AST_BLOCK = AP : REF VECTOR C ,LONG J; 

LOCAL 

FAB : REF BLOCK { ,BYTE J, 

NAM : REF BLOCK C ,BYTE J; 

Get the fab (Pointer to by the second ast parameter) 
FAB = .AST_BLOCK C 1 ); 

If this is really a RAB (from a connect) then get the fab it points to 


if .FAB C FABSB_BID ) EQLU RABSC_BID 


SSN NSS NS NSIS ISI SINS INIA OOOOH 


NN 


MEWN 0 OOnNO 


Be ee Be Ge Se Se Be Se Se Se Be Se Fe Ge Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Se Ge Gs Ss Ge Ge Se Se Se Se Se Se Se See Se Se esse Fe Se Se Se esese 
a a a a ek ee a a ad od nd dd od od = = 
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FOLDRIVER VAX-11 FDL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-74 
ayaa ti FDLSSRMS_OPEN_ERROR 12-808-1 382 Ob: gtif YPDL.SRe BepRiveR:o3o04 
3 43 THEN 

: et sig FAB = .FAB C RABSL_FAB J; ! This looks strange but it’s ok! 
; oy tts ' Get the name block 

+ 174 44 i 

3 Vee ree NAM = .FAB C FABSL_NAM J; 

; 1708 +¢$ ; Signal the FDL error with the best file name string 

; Hb mrt First try the resultant string 

; 1730 490 iF NAM C NAMSB_RSL J) NEQU 0 

: 175 45 

3 1588 128 STRING_DESC t DSC$W_LENGTH ] = .NAM C_NAMSB_RSL J; 

> 1754 454 STRING_DESC C DSCSA-POINTER ) = .NAM C NAMSC_RSA J 

ie BY 

3 1737 teh } Next try the expanded string 

: 1759 459 ELSE IF .NAM C NAMSB_ESL J] NEQU 0 

: Fee rr THEN GIN 

: 176¢ 46¢ STRING_DESC : DSC$W_LENGTH ] = .NAM C_NAMSB_ESL ]; 

> 176 46 STRING-DESC C DSCSA-POINTER ) = .NAM C NAMSC_ESA } 

3 1764 464 END 

3: 1765 465 

: 1768 rh ! If all else fails use the name string 

: 1788 289 BEGIN 

> 1770 470 STRING_DESC : DSC$W_LENGTH ] = .FAB C FABSB_FNS J; 

3 i7f3 ae STRING_DESC DSCSA_POINTER ] = .FAB C FABSC_FNA } 

: 177 47 . 

+ 1774 2474 SIGNAL_STOP( .FAB C RABSL_CTX 1.1,STR NG_DESC 

> 1775 2475 FAB C FABSLISTS J,.FAB C FABSL_STV J ) 

: 1776 3476 

: 1777 477 1 END; 


0004 00000 -ENTRY FDLSS$RMS_OPEN ERROR, Save R2 

52 00000000" 00 i 900¢ MOVAB STRING DESC, R 
51 04 AC p 00 MOVL  4(AST_BLOCKS, FAB 
01 1 91 0000D CMPB Os (FAB)> #1 

4 1 919 BNEQ ~=s«1$ 
51 3¢ CO A1 SO 91 MOVL 60(FAB), FAB 
50 38 Al 2 16 1$: MOVL 40(FAB). NAM 

AO 1A TSTB (NAM) 

08 13 0001D BEQL $ 
63 03 AO 9 1F MOVZBW 3(NAM), STRING_DESC 

046 A 4 ad D ; MOVL  4(NAM), STRING-DESC+4 
19 11 000 BRB 4$ 
0B AO 95 0002A 2$ TSTB. 11 (NAM) 


K 12 
FOLORIVER VAX=-11 FOL Utilities 16-Sep-1984 01:47:4 AX-11 Bliss-32 V4.0-742 Page 52. 
v04- FDLSSRMS_OPEN_ERROR 12-808-1 382 O3:3h39 YEDL SREIFDEDRIVER B32 04 . 235 
0B 13 ) t 3$ ; 
6 ge AO 9 F MOVZBW 11(NAM), STRING_DESC 3 2462 | 
04 A C H ; oe STRING_DESC+4 3; 246 | 
6 4 Al 98 A 3S: MOVZBW : (FAB), STRING_DESC t 2470 
04 A f Al p VL 44(FAB), STRING_DESC+4 3 2471) 
7E Al D 45 4$: MOVQ 8(FAB), =(SP) 3 2475 
52 DD 0004 PUSHL Re : 2474 
0 DD 49 PUSHL a s 
18 Al 0D 00048 PUSHL 24(F AB) 3 
000000006 00 0S FB Opes CALLS #5, LIBSSTOP : 
04 0005 RET 3: 2477 
; Routine Size: 86 bytes, Routine Base: _FDLSCODE + O5AA 
} 
3 1778 gers 1 
3; 1779 479 0 END ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
4 PSECT SUMMARY 
; Name Bytes Attributes 
:  _FDLSOWN 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
; _FDLSCODE 1536 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
$ Library Statistics 
Der gs ae Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 39 0 581 00:01.0 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=LIS$:FDOLORIVER/OBJ=OBJ$:FDLDRIVER MSRC$:FDLDRIVER/UPDATE=(ENHS$:FDLDRIVER) 
; Size: 1536 code + 12 data bytes 
0:36.1 


; Run Time: : 

; Elapsed Time: 2: 3-7 
3; Lines/CPU Min: 41 
; Lexemes/CPU-Min: 21518 

; Memory Used: 175 pages 


eens” alla” 


; Compilation Complete 
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